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/\WMEX 1 



Meeds [-RingFunctionsDif f Encoded > "J 
*7arnes [ "RingFunctionsDiff Encoded * * " ] 



{AllGoldSequences, AutocorrelationSequence, AutomorphismSigma, CodingTransform 
CodingTransf ornuVev:, Crosscorrelat ionSequence, CyclicMulciplfctiveGroup 
DropLeadingZeros, GoldSequen.ee, GraeEf eMethod, InitialCondi ticr.s , MinimumPoly 
KoduloMultplication, PolynomialMul tiplice tion, Poss ibleDivi* — £ , P.ingDivision 
RingPower, SequenceGenerator, Speci f iedGoldSequer.ces , Trace?.=cresentation, 
TupleRepresentation, TwoAdicExpans ion, UnitsPang, ZeroPad, ZeiiSequences, T, o) 

Needs,["LaurentFunctions * M ] 



RuleDelayed: :rhs : Pattern t_ appears or. the right-hand side of rule 
■PnaseAngle[L_J [t_J » (PhaseAngle [L] [ t_] = Module[{xl, >;2 , x3, x4 , >:5. x; 



Needs [ "LaurentNotationTest * " ] 

Needs: mocont : Context LaurentKotationTes t 1 was no- created when Keed; was evaluated. 
Information on the functions used can be obtained using help. 
Names ["Laurent Functions**" ] 

{ AKN, AlphaKl, ANKInitialStateSetUp, BT, FiltPulse, h, hFilterei, Initialstate J 
LaurentC, LaurentLK, LaurentS, M, ModulatingPulse, Modulationlr.dsx, Modulator ' 
IiuroberOf Curves, PhaseAngle, PhaseAngleFas t , Receiver, ReceiverProoer, S 
Samplinglnterval, Star tingQuadrant , SyncSanple, T, C ( S, 



T : = 

812500 
BT : = 0.3 



o 



a 

^3 



Modulationlndex : = — 
2 

<< ModulatorData.tn; 

<< OptimalPulseShapes.n; 

Plot [OptPulse[L] [0] [t] , {t, 0, B}] 




£ytxvwpte oj opt 
PkaXoz. /^Uo-p£ . 



Plot[OptPul SB [L) [1) [t), {t, 0, 6)] 
0.2r 



0.15 



0.1 



0.05 




Graphics - 



S12500 

The unit of time is T = l for OplPulse.We scale the Pulses to T = 



■ 6i2 3 5oo for the unit of lim-: 



OptPulseScaled[ 8 ] [0] [t_] : = OptPulse [L] [0] [t /Tl 
OptPulseScaled[8] [1] (t _) := OptPulse [L] [1] [ t / T J 

Plot(OptPulseScaled[L] [0} [t], (t, 0, 8T}) 




5x10"° ■ °OOQ10000a 5000© 20 0 0 0(2 50 0 0 0 3 
Graphics - 
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«ot[PiltPulse[L)[OJtt], (t, 0, BT}] 




5 xl0 -e.000O10000a 5000GB 20 0 0 0Q 500003 
- Graphics - 



m The Gold Sequence Set 



We generate the sequences using ihc method specified by Senior Boztas and P Viiay Kunnr ir R,f f n -n 



Goldseqlist = 

Specif tedGoiaSequencesCU, 3, 2, 1, 0, 3, 0, 0, 1>J 2 , 3, L* st . 1# Last}]; 
The Inst sequence of seqlist has nice autocorclaiion properties. 
The Jasi sequence is in fact a m-scquence of len S ih 1023 bits. 



Goldseqlist // Last 



Ur 0, 0, 0, 0, 0, 0 

°* 1. 1, 0, 1, 0, 1 

0. 1. 0, 1 

1. 1. 1, 1 

o, a, o f i 

0, i. i, o 
i, 
i, 

1, i 



o 
i 
i 

0 
0 

- 0, 1, 1 
0, 0, 1, 1, i, i 
1. 1- 0, 0, 0, 1, l, o 
0* 1- 1. 1, 1, 0. 1 



0, o, 

1. 1. 

0, 1. 
0, 



1, 1. 

0, 0, 

0, 1, 

1, a, 
o, 

o, o, 
o, 

0, 0, 



1. 1, 

0. 1, 

0, 1, 

1, 0, 
0, 1, 
0, 1, 
0, 0, 



0, 0, 0, 

1. 1,1, 

1. 0, l f 
0, 1, 1, 



0, 0, 



1/ o, 0, 0, 1, 0, 



1. 0, 1, 0, 1^1, 0, 
AutocorrelationSegvence[Goldseqlist // Last) 



0, 0, 1, 



0. 0. 

1, o. 



i, 1, 

0. 0. 

1. o. 

1. 1. 
1, 
1, 



1, 



{255, 
-1, 
-1, 
-1, 
-1. 
-1. 
-1, 
-1, 
- 1. 
-1, 
-1, 
-1, 



-1, -1, - 
-1, -1, - 

1, - 
1 , - 



1, 



-1 
-1 



-1* -1, 
-1, - 



-1, 
-1 , 
-1, 
-1 , 
-1. 
-1, 
-1 , 



-1, 
-1, 
-1, 
-1. 
-1. 



-1 

- 1 
-1 
-1 
-1 

- i 

- 1 
- 1 

- I 

-1 
-1 



The ihirj sequence in ihc lisi has the following ; U ; 



1, -1. 
, -1, 
, _ 1 t 

, -i! 
, -i, 
, -i, 
, -i, 
. -i, 

_ i 

- 1 
- 1 , 



-i, -i, -i, -i, -i. 



i, 
-i, 
-i, 
-i, 
- 1, 
-i, 
-i, 
-i, 
-i, 
-i. 



-i, -i 
i, -i 



-i, 
-i, 
-i f 
-i, 
-i . 
-i, 
-i. 
-i, 
-i. 



-i, 
-i, -i, 
-i, -i, 



- 1 , 

- 1 , 
-i. 
- 1 , 
- 1 , 



- 1, 
- 1 , 
- 1 , 
- 1 , 
-i, 
-i, 



o, 
1, 
1, 
1, 
1, 
1, 

i, o, 
1. 1, 



- X , -1, 
-1, 
■1. -1, 
-1, -1, 
• 1. -1, 
-i, 
■ i , - 1 , 
-I! 

: ! ~x[ 

: . -i ( 



0, 1, 0, 0} 



•l. -l 



-i, 

-i, 
-i, 
■i, 

-i. 



i, -i. -i} 



tocoiTchilkin 
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AutocorrelationSequencefGoldseqlist // fi[ [3j]&] 



(255 
-1, 
15, 
-17 
-17 
-1 , 
-17 
15, 
15, 
-1, 
-1, 
15, 
-17 



, .i. -i7, -i7, -i7, .i, - 17f : I( .i, 1 -i^'x 7 ':^^ 5 :x'W;:r^'.^' 



-i* -i, 

15, -1, 

15, 
1, -1, 
, -1. 15, 
15, -1, 
. 15, -1, 
17, 



We generate the output of the modulator C C- MS< Yv\odxxXak\^) 



Moaoutput= Modulatory] [ (Goldseqlist // Last W ro i\ » • 



Wc check the ouipul 



^^ec^S^rrr^" 3 ' In,tMOd °- JtI3Ut ^ //—Pose, Plotaoine, -> True , 




- Graphics - 
Now wc try to test the "modulated sequence using the 
The number of samples per chip is equal to 

h 



26000000 



(ReceiverfL) (ModOutput, StartingSuadrant -> 0, lCOLO loeOA^ O. VLfcrvvJ- 
Samplinglnterval^ T/4, ModulatingPulso - FiltPulse] // DropR, 4 1 & 1 l" 0 ' 
( (Goldseqlist //Last //Drop[#, -4]*) /. { 0 -> -1)) J ' 

( 2' 2' 2' 2' ?' °' °' °' °' °' °' °' °' °' °' 0* 0, 0, 0, 0, 0, 0, 0. C 0 0 

a' S' 2' 2' 2' 2' 2' 2- 2- °- °- °- °- °- °- °- °- °- °- °> °- o, c i, o! o 
2' 2' 2' 2' 2- 2' 2' °- °- °' °' °* °- °- °- °< °> °- °. o. o, o, o ; 0 o 
2' 2' 2' 2' 2' 2' 2' ?• °- °- °' °' °' °< °' °' 0 > °> o. o. o, o, c c' o o 

0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/0. 0, 0, 0, 0, 0, 0. 0 0 c I 0 0 
o. o. 0, 0, 0, 0, 0, 0, 0, 0. 0, 0, 0, 0, 0, 0 0 0 0 0 0 0 0 C G 0 
ft 0, 0, 0, 0, 0, 0, 0, 0, 0. 0, 0, 0, 0,0, 0, 0 0 0 0 0 



0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 



o, 0, 
0, 

0, 
0, 
0, 
0, 

o, c. c. 0, 0, o, 

0, 0, 0, 0, 0. C. 0, 0, 0, 
0, 0, 0, 0, &,[, 0, 0, 0, o 



0, 0, 0) 



Wc have successfully demodulated the biistrcnm 



ModOutputOpt = Modulatory] [(Goldseqlist // Last) /. {0 -> -i) 

KunberOfCurves -+ 2, KodulatingPulse -* CptPulseScaled, Saraplir. 5 Z 

ListPlott {Re [ModOutputOpt), Zm [ModOutputOpt] ) //Transpose, PlctJoined -> •True 
AspectRatio -> 1) • i-tue. 



nterval -» T/ 4) ; 




- Graphics - 

Av^6VU^ cWeCk : — 

(Receiver [L] [ModOutputOpt, Start ingQuadrant -> 0, 
( (Goldseqlist // Last // Drop[# , - 4 ] u) /. {0 -> -1)) 1 J ' 



(0,0, 
0, 0. 
0, 0, 
0, 0, 

0, 0, 
0, 0, 
C, 0, 



0, 0, 
0, 0, 
0, 0. 



o, 

0, 
0, 
0, 



0, 0, 
0. 0, 



o, 

0, 
0, 

o, 

0, 
0, 
0, 
0, 



0, 0, 0, 

0, 0. 0, 

0, 0, 0, 

0, 0, 0, 

0, 0, 0, 

0, 0, 0, 

0, C, 0, 

G, 0, 0, 

0, 0, 0, 



0. 0, 0, 
0, 0, 0, 
0. 0, 0. 
0, 0, 0, 
0, 0, 0, 
0, 0. 0, 
o, C, 0, 
0, 0, 0. 
0, C, 0, 



0, 0, 
0, 0, 
0. 0, 
0, 0, 
0, 0, 
0, 0, 
0, 0, 
0, 0, 



0, 0 
0, 0 
0, 0 
0. 0 
0, 0 
0, 0 
0, 0, 0 
0, 0, 0 



0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 



o, c 
0. c 
0, c 
0, c 
0, c 
o f c 
o. : 

0, r 



. 0.0, 0. 

. o, 0, 0, 

. o, 0, 0, 

. o, 0, 0, 

. c. 0, 0. 

. 0. C, 0, 
o, o, 0, 



o.o, 
0, c, 



0,0; 



0, C. CJ 



H CDMA OPERATION 



As ;m example driven a symbol siream c.e. ( I , 
«l»T.i .:.,!t.iu-s ih.- j. n . : p, |lwV> . : 



consisting of - 1 .nrul I , th;f:. „ IM;: function 
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Module [ {xl, x2. x3), GolflSe <J-] = = wU"^ ulOtuffVA £>X. 

XI = ColdSeq/. (0 -» -l>. , , T 

Hap[xl# 6/ BiPol a rBi tS c4i //Hatten] ^COCUj^Q (XX 

CDMAZncodedSeg = CDMAEncode [ <- 1, ! j. xl r „, „ , ^^^^JL^ 

11 x ' ±f x ' _1 J/ Goldseqlist // Last j ; 

B CDMA decoding of single Symbol 
The modular ompui associated vviih { I ) 

T*« IS . pri,„Uivc decode, tail, .„ s,ud, ,„e .^^.a,,,. Thl. will help ,„ docKli „ ( 

TaketWodOutputPlusOne, 10} 

xSstate = Table [ (-1) » Mod M r • „ 

*3U P aat e := ModuleCO length [xZStato] 

Sabl. [^Update, {i , )] ( J " * "^^l""- *Jl]/ 

V/c make i( more efficient 

»- - ^-UiveCO^.eceiverfHodOutputPlusOno, (Cold seq li st „ llis) , ^ . 
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ListPlot[Tom//R Q/ PlotCToined -> Trua, PlotRange -> All] 

lsoi- 



100 



50 



- Graphics - 

Ton: = PriBltiv.CDHAReceiver2[ModOutputPlusOno # (Goldseglist // Last) , 1, 4 ]; 
ListPlottTomZ/Re, Plot Joined -> True, PlotRange -> All) 



5 0 



50 100 150 200"^" K 250 



-50 
-100 
■150 

- Graphics - 
rom3 = PximitiveCDMA 



^•coiv.ra[MoaoutputPlu«On.3,- (Goldseqlist // * [ [3 J ]£) , 1, 4] . 
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Graphics 



Tom-? = PrinitiveCDM^eceiver2[ModOutputPlusOne3, (Golds eglis t / / ff [ [4 ] ) u ) , 1 , 4 ) ; 
ListPlot [Tom4 // Re, PlotJoined -> Tme, FlotRange -> All J 




UVc^ 1 G&icl Code 



- Graphics - ' 

ToiaS = PrimitiveCD^eceivertModOutputPlusOncS, (Goldseglist // £[[4)J&), 1, 4]; 
ListPlot[Toia5 // Re, PlotJoined -> True, PlotRange -> All] 
30f 




mk mm 
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length [Tom] 
255 



TaV.o [Tom, 2 0] 

{1 - 7 "^-%°-329995 l. 0.0343421 - 1.58366 1, 1.39349 + 29.6902 I, 1 = 3.017-0 95706B I 
/f!;! 631 ' 5424- 2. 04777 1, 2 .21031 * 0.256635 1. * 392 + 2 it II 9 T 

3 «?« 7 ; 6 ; 7I ' 3.61193 - 2.5452 1, -1.68586 + 5. 24864 I, 3 2E077 - l 95193^ ' 

3 loS7?~ 5 9 V - 1 £ 9 ^72 - 5.29083 I, 3 .34843 + 0 .914983 i. - 1 . U 1 92 V 4 93512* I 

-3. 90572 - 2. 5076ei. -6.70085 , 2 .60649 1, 0 . 8864 8 8 - 4 . 00636 i , 1 ;. 5807 - 2 \ 03322 1 j 

ListPlot[Tom//R e //Tako[S, 20]fc, PlotJoined -> True, PlotRange -> All] 
1E0 




5 10 12.5 15 TrrT 20 



2.5 



- Graphics - 

ListPlotfToni // Im // TaV.e[#, 20] &, PlotJoined -> 



True, Plotp.ange -> All] 




Take (Tom, 10] 



{l 0%\l\nn'\\\ S l\l' °-°3««l-l. 58366 1, 1 .39349 . 29.6902 1, i = ~ 017 - 0 95706-1 



10 



I*istPlot[Tom//Re//TakB[#, 2 0)fc, Plot Joined -> 
150 



True, PlotP.ar.gs -> All] 



2.5 




5 10 12.5 15 TTrT 20 



- Graphics - 

ListPlot[TQ a //i a /yTa) ! .[i l 20] t. Plot Joined -> True, PlotRar.g. -> All) 




2 - 5 7.5 10 17.VT0 

- Graphics - 

ListPlot[Tom//Abs//Ta>.e[#, 20)&, PlotJoined -> 



True, PlotP.ar.gs -> All) 



1*0 




IE 5 




300 




/ 75 




/50 




/ 25 




2.5 


7 


Graphics 





7.5 10 12.5 15 17.5 20 

V/e try a less favourable sequence 

Modou tputPlusOno3 = Modulator [L] f CDKASncod ;j [ (1) , Gqi ds«l« - / ' - r f 3 i i r i 
l.uiafaerOfCurvos -> 2, todulatingPul^ -> Opt l^Wo Scaled r S «Vlir. ? V 



ntcrv.il -» T/ C) ; 
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^^^^ -—Hi-., 

Torn* = PriBitiv.CDMMt.c.iv.rtModOutpuCPlusOn.3, (Golds.qU.t // « [ [3 ] ] 6) , 1# 4J . 

TaTce[Tom4, 10] 

Lis t Pl ot[Toin4//Re//Take(s< 20)£> PlotJo . nea ^ True< plotRansa ^ All] 
50 




ListPlot[Tomi //in //TaketS, 20]£, PlotJoined -> 



Tjrua, Plotp.ar.ge -> All] 




t\5/ rtr^trrs is iV 20 



> KJS^ t .ofi tlICW,M , !leodet( - 1, ' ( G °""giist//i, aEt ) /. (o -> 

i6 - 0£CUrVeS 2 ' "odulatingPul... OptPulseScaled/s^Xi^iAt.rv.l - T /«l 



To:ri:i 



rrimitiveCD:i\?,Gc 



eiverHinus[ModOutputKinusOr.e, (Coldserlist // Last) , 1, 4); 
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ListPlotlTomMl/Zln, PlotJoined -> True, PlotRange -> All} 

25 r 



-25 
-50 
-75 
-100 
-125 
-150 



- Graphics - 

Tottu'II = PrimitiveCD^eceiverlHodOutputMinusOne, (Goldseqlist // Las t) , 1, 4] , 
r.ifltPlot[XoBMl//im # PlotJoined ~> True, PlotRange ~> All] 




- Graphics - 

Length[Totn) 
255 

Take [Tom, 20) 

( ^ 75 71 0 £ 377°' l 2 ^ 9 ^, 1 ; °-^ 3 ^ 1 • X - 5e366 ! ' 1.39349 . 29.6902 1, 1:3.017 - 0 957058 1 

3.90572 - 2.50768 1. - 6 .70085 + 2.60649 1, 0.8S6488 - 4.006361, :".T5807 - 2.0E322 1} 
Checking tlic correlation properties of the Training Sequence in GSM 

gsm = {o, o. i, o, o, a, o, i, i, i, o, o, o, o, l, o, o, o, i, 0/ c, i, e, l, i, i> 
{o, o, i, o, o, i, o. i. i, i. o, o, o, o, i, o, o, o, i. o, o, i. o : i, i) 

^r-v^^r- 2 ' x - i - - 1 ' - 1 ' 

( i? irV," 1, x - - i - -i. -i. -1- : -i. -i. 

CDCJle. 
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AutocorrelationSoquencBlGSHseq) - CL\.6Ck.UA^ C <5YY£: I OJX/S\.^ pr"flp€r/t 

•2, 10. 2. -lo. 6, CrSlM. frOLUU 



<2 2' ?' 'V _2 ' 6 ' - 10 ' 2 ' 10 ' " 2 < - 2 - " 2 < -2- 

" * » * - t> * 2 , - 2 , -2} 

ModOutputCSMs Modulator [L][GSMseg, NumberOf Curves - 2, 

KodulatingPulse - OptPulseScaled, Santpllnglnt erval -+ T/4]; 

TosiGSMl = PriiaitiveCDMAJleceiverlModOutputGSM, GSMseq, 1/ 4); 
ListPlot[TomGSMl // Abs, PlotJoined -> True, PlotRange -> All] 




- Graphics - 

PrinitiveCDM7Oieceiver2[Mod0utputGSM, GSMseg, 1, 4]; 
ListPlot[%90//Abs, PlotJoined ->. True, PlotRange -> All] 




- Graphics - 

PrimitiveCbtVJisceiver[Kbaoatpufc65H, GSMseq, 1, 4]; 



**ci/c;Byy/uu2U2 
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ListPlot£*j92 //Abs, PlotJoined -> True, PlotRange -> All] 





- Graphics - 

P ^ i ? i ^ i T? CDt -^ eCei t erGSM2Pulse C Mo <30utput_ / GoldSeq_, Sample , OverSanmH™ i 
Module! {xl, estate, x3Update, x4 # .x5State, *5, x6>, OvorSamplingJ 
Partltion CNodOutput, Oversaraplinffj // Transpose // # [ f Sarplell fc* 
x2Stato * GoldSeq/, (0 -> -1); 11 ?ie J J R ' 

xSState = Table [<-l)*Mod[i, 2], {i, 0, Length [estate] -1)1; 
*3Update := Module [{>, x2State = RotateRight [x2State] ; 
x4 = FoldList [Plus, 0, x2StateJ // Rest; 
x5 = tfoint{l), x2State // Drop[#, -1]&); 
>:6 = FoldList [Plus, 0, x5J // Rest // 

? a bup?nV^ 0t f teRi5ht(X5State)? Xl (estate x6) // ApplytPlus, #]*]. 
±able[x3Update, {i, 1, Length [GoldSeq] }] ] ' 

TomGSMSecondP ^ Prinit iveCDMAReceive rGSM2 Pulse [ModOutputGSM, GEMseg, 1 41 . 

-LxstPlot [TomGSMSecondP // Abs, Plot Joined -> True, PlotRange -> All] 

\S ■ 




Graphics 



>se // if {[S-_T.ple] }U; 



PrinitiveCDMAReceiverGSN2PulseSf ficient[ 

HodOutput_, GoldSeq_, Sample., OverSampling ] : = 
Kodulo[{xl, x2State, x3Update, x4 , xSState, x5, x6>, 
xl = Partition[ModOutput, Over Samp ling] // Transpos 
x2State = GoldSeq / . {0 -> -1); 

xSState = Tablo[(l) -Kod[i, 2], {i, 0, Length [x2State] - 1) j ; 
>:3Ucdate := Module [{), x2State = RotatoRight [x2Stato] ; 
= Fol<?.i,ist [Plus, 0, >;2Statc) //Rest; 
" 5 = ^'in[(l), x2State // Drop[f±, -1]&] ; 
x5 = FoldList [Plus, 0, x5J // Rest // T*#U; 

m v.V 5 ? C ? t0 = F.otate:iight[>:SScate] ; xl (xSState x6) // Aoplyrpi u * Sl&l- 
Table [x3U P date, {i, 1, Length [GoldSeq] }] ] -Pi/lF-i~. „jfc]. 



15 



X.intPlot[ToB0SMSecond?Eef2//W».. PlotJoined -> True, PlotRange -> All] 



10 








8 








6 








4 










/ 10 


\jis 


V20 



25 



Graphics - 



» CDMA Decoding of Several Symbols with Training sequence Receiver 

T™, We gCnCra ™ modu,alor out P ul - For simplicity we will use a very short trainine sequence Let the training 

SET onc of GSM ,rainins sequcnccs Lcl lhc suard sc ^ nc " ('•'.'). lc, ihe-d M q , yinb <;it^3 by a 

*atoi = {i, a, i, x , 1( a , o, lf 0> lr 0/ lf z> 1# 0t lf lf Qf lf 0) . 

data2 = {0, 0, 1, 0, 1, 1, 0, 1, 0, 1. 1, p. 1,1, 0, 1, 0, 0, 1, 1); 
EWard = {1, 1, 1) 
(1, 1. 1} 

training = {0 , 0, 1, 0, 0, 1, 0, 1, 1, l, 0 , 0, 0, 0, 1, 0, 0, 0, 1, C, 0, 1, 0, 1, 1, 1, , 

Only at this point that we differentially encode using the gsm scheme 

fraae = Join[£ruard, datal, training, data2, guard] 
General : :soelll : 

Possible spoiling error: new symbol na.e is sin ii ar C0 exist:.-.; sy^ol -F-a- e - 

" --.- , |: 5: 2: |:."|: i: S:-"S::|: |:"S: S: S: i : 5: ji-Sf-'S: 5:1: iii ^ " 

General; :spelll : 

Possible sp 6 lli„ 3 errcr: r. S « s^b- r.,3* - Era:,*- is similar to c->: iS -.;,n s^.bct • franc- . 
franeErxodcd = GSIIDif f EncodedFra;-c. [ f r<na] 

u -i. i. -i. -i. -i. i. -i. _ lt _ lf lf Ll ; lt i!, 1 ::-;.;;;. 1 :;, 1 !, lp u 1} 

''''''f.^r^Vf*-^^'--- r «^«la-.nrrr.j 1 C£W.»:.. :oa ;- : iv.::,.-,,;-,.^;:, c ., : ........ . . .. L . , 
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CarrfreqOOl = Table [E A (I 2 Pi 0 . 0 01 j ) // N, (j, 0, Length [ModOutputFrame3) -l>] ? 
CarrOOl = ModOutputPrame3 CarrfreqOOl; 
Save ("CarrOOl.Tn", CarrOOl]; 

CarrfreqOOOS = ' Table [E A (12 Pi 0 * 0 0 05 j ) // N, {j, 0, Length [ModOutputFrame3] 
Carr0005 = ModOutputFrane3 CarrfreqOOOS; 
Savep'CarrOOOS.Tn", CarrOOOS] ; 

Carrfreq002 = Table [E A (12 Pi 0 . 002 j ) // N, {j, 0, Length [ModOutputFr«urie3] - 1} ] , 

Carr002 = ModOutputFraine3 Carrfreq0 0 2; 

Save[»Carr002.m", Carr002] ; 

ModOutputUnEncodedFraroe3 = 
Modula tor [L][CDloj:n C ode [frame/. 0 -> -l, Goldseqlis t // # [ [3 ] ] 6] , 
NumberOf Curves - 2, ModulatingPulee -> OptPulseScaled, Samplinglnterval - T/4); 

Save [ n ModOutputUnEncodedFrajneGSMLike3.m" , KodOutputFrame] 
<< HodOutputFranerrncodedGSMLike.in; 
Length [ModOutput Frame) 
73440 

AFC0005 =: TaV_e[Carr0005, {50, 7300}}; 

AFC0005 // {Re[#3, Xm[#J>& // Transpose // 
ListPlott#, PlotJoined ~> True, PlotRange -> All, AspectRatio -> 1}*; 
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In the PrhnitivcCDMA receiver we need to specify the sample. In the CDMA synchroniser wc discover the sample. 

C M^ C ? a Tf e f^ hr °^ iSerNeWtKodOUtpUt -' Gold s egL _, Threshold., OverSarnpling i... 
Module [{xl, x2, x3, x4Plus, x4Minus, x5State, *> Ai ™J_J 

xSCount, x6MaxCprr r seq, x7Update, x8, x9, xlO, xll, x!2, xl3>, 
xl = ModOutput; ' 
- x2 = GoldSeq/. 0 -> -1; 

\J\ x3 = CodingTransformNew[L) [GoldSeq]; 
c C- x4Plus = x3[[l]] ; 

v — > x4Minus = x3[[2]]; 

xSState sTakefxl, (Length[x2) + 1) Over Sampling] ; 
x6Count =1; J 
x6HaxCorr = 0; 

seq = Dirop[xl, OverSarnpling ( Length [x2] + 1)1? 
; x7Update := Module [{}, 

^ x8 = Partition[x5State, Over Samp ling] //Transpose; 

c) X in\ WapC r {Dr ° P[# ' " 1] ' x4Plus ' Srop[S, 1J . x4Mimis}&, x8] ; 
^ — ■ xx o — 1*1 ap f 

^ xll = If [Max[xl0] > Threshold, Throw[{xl0, x6Count /Trie} J, t*- t J J J J )*.*9}, 

O {xSCount, xlO, x6MaxCorr = Max [xSWaxCorr, xlO) , False)]; 

<-v y.GCount = x6Count + 1; J 

xSState = Join [Drop [xSState, Over S amp 1 ing } , Take [seq, OverSamplingl 1 - 
seq = Drop [seq. Over Sampling] ; JJ ' 
*H J; 

Xl i^ = Ca *;<=n Enable [x7Update, {i, 1, Length[seq] /Over Sampling )]]; 
xl3 = If [Last [xl2 ] = = = True, ,J 

CMAFineSynchroniser [ModOutput, xl2[[2]], x3, OverSamoling] , 
1 Failed to Coarse Synchronise", False}]] 

Tom 4 = 

CDMACoarseSynchroniserNev^AFCOOOS // Drop[», 250 4)fc, Goldsealist / / Last , 50, 4] 
DeModulator [ 

{l[ ' le ,kl 5 l^ 10 l, 9 i 11 ' 9 - 198E9 * 6. 93038 1, -3.61972 . 15.2763 1. 13.0046 - 9 41072 1) 

i!^"^; 7 ^! 1 ' 7 " 49431 " 8.74558 I. 15. 0189 * 4.57178 I. -£ .57558 - 13 5658 i 1 
;n 9 ^^ 474 + 101 - 035 1 ' -8.25775 - 8.02866 1, 5 . 50581 - 14 .702' t -i< 0815 ,1 ?o4l t- 
{99.0255 + 35.4352 I, -8.53133 . 7.73733 1, -14 3275 - 6 4181 l"s i?l Vi i ?<, ! ' 
(41.5832 - 96.6051 1, 7 . 18638 . 9 . 00033 1 . '- 7 6507 . 1 .wl J .' 14 93^4 - 5 8809S l' i 

'i^TlOl^^^^ 

-.-!. 28004 - 1.614371, - 9 . 6R183 - 1 3 . 142 5 I } . { - 3 6 . r > 9 7 3 * 9* 1 c, - * t 
■ f.'. IS; ■/:■{-?- R.0C79-; l f ■■ 1 . 75-135 * 2 . 374 la I -13 7?is , k r~7-v*. 
(S0.5141 * 42.3£43 I. - H . 62E98 8 . 66 3 12 I . 2 . 0597 3 , 1 . 8274 r -' 533 * + -,c,-> T . 
(4/. 9641- 87. 6755 I, 8.1042. 9.15591 1. 2 . 0 1 3 0 1 - 1 . 9 37 15 I . 7 : ?3 9 1 7 C477 j >I ?i ' ; 
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Ton0 005 = 

CDHACoarseSynchroniserNswfCarrOOOS //Drop [ft, 250 Goldsealist // Last , 100 , 4} , 

CDMAFine Synchr oni s er [ ModOu tpu t_, 

T Hodu?!rf r re , lat ^° C ° Unt -' CorrelatiaBSeq., OverSaznpling ] : = 
ModulB[{xl, x2, x3, x4, x5 r x6, seq, 3c7Upd a te, xSFirst 

£ * 9s r°?*' xio.:;ST""; *». *». iu, . 

- if [ThresholdCorrelatioCount > 3 <>, 
x^^SS^ nt - 3 ' ThresholaCorrelatioCount,; 
>:3 = Drop[ModOutput, xl Over Sampling] ; 
x4 r: CDMAPositionFinder[x3, x2, Overs amp ling] • 
*x 6 \ C C D E ^S°^ Over Sajnpling) , 

*7 = Po.itionxver«g.r[{xi[ 1 l]]. xS [ [1] ] , xsfri] ] 1 \ ' ° VerSara - Dl ^J f 

>:8F irs t = Drop[x3, (x7Ul]J - 1) OverSanpling] //' 

Partibion[«, OverSampling] & //Transpose// *f rx7IT2nilfc. 
xSSecond = Dro P [x3, x7[[l]] Oversaving] // J 3 3 & * 

Partition^, OverSampling] t //Transpose// * r Tx7 T T2 11 1 1 s • 
"f^S" = ^^"t/ZPartitionf*, Length[x2 [ fl] J M £ , 

XSSecond = xBSecond // Partition^, Length[x2 [ [11 1 ] ] &; 
xlOSecond = Map [Function [x, Map[x. #&, x211 x9s«r.«i,Vi . 
n-«odulator[(xlOPir«t. xlOSecond) } J x9SeCond J ' 

CD ^odulet?x5Stft« [, L 0 fi t 0U - P . Ut -' Cor ^^"ing Se(a _, Overselling ] : = 
r.oaule[(x5State, xSCount, seg, x7U P aate, x8. x9. X 10 xll Vn 

""^V^ 1 " 0 - 0 -^' ^-^MCorreiktingSe^^Vj^^ Ove^piing], 

xJSpta^'SSS^Jj, ° ,r * r8 "» llB » ( Len 9 th tCorrelatingSeq[ (1) ] J + 1} , , 

v5 " P xf rt r i , t i° n[3 i 5State ' O^^arapling] //Transpose; 

HapIJDropCS -i] . Correlating*.^ 1 1] 1. Dro P (#, -X] . C6rr.lating"s.«r r 2 , , 
x 6 Co^t P i"x 6 cLn t C 7" latlngSeqCtl]] ' »J - Co.r.l.ting.aifla^JK'ij,, 

s V^sr^rfssj r ersampiins5 - Take [ seg ' 1 * 

I Table [^Update, {i, 1, 10}]; 

>-12 Haplndexed [Apply [Plus, #]&, xll, {2)1; UJ 
X13 = Position [xl2, Max[xl2] ) ] 

need to define a posiiion averager. Wc for now just lake the first element 

PositionAveragertPositionUstJ : = First [PositionList] 
Tom4 = 

CDMACoarsesynchroniserNewfTestData //brop t #, 250 Goldsesiist // Last , 100, 4] 

DsModulator[ 
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Tom4[[l]] //Transpose 



{ { {-157 .056 + 0. 691379 I 

{-169.734 - 0.510132 I 
{{-0.691379 - 157.056 I 

{0.510132 - 169.734 I, 
{{157.056 - 0.691379 I, 

{169.734 * 0.510132 I t 
{{0.691379 + 157.056 I , 

{-0.510132 + 169.734 I 
{{-157.056 * 0.691379 I 

{-169.734 - 0.510132 I 



, 7.37139 - 18.e305 I 
, 6.8871 - 20 .5026 I , 
, 18.8305 + 7 .37139 I 
20.5026 + 6.8871 I, - 
-7.37139 + 18.8305 I 
-6.8871 + 20.5026 I, 
-18.6305 - 7 .37139 I 
, -20. 5026 - 6 . 8B71 I 
, 7.37139 - 18.8305 I , 
6.8e71 - 20.5025 I, 



r 41.1322 + 1 . 94693 I 
6.24607 + 1.47947 I, 
- -1 .94693 + 41.1322 
1.47947 + 6.24607 I , 
r -41.1322 - 1.94693 
-6.24607 - 1 .47947 I 

1.94693 - 41 .1322 I 
, 1 .47947 - 6 .24607 I 

41.1322 + 1 .94693 I 
6.24607 + 1.47947 I, 



-16.2843 - 23.4715 1} 
-17.4944 - 21.5101 I}} ' 
I. 23.4715 - 16.2843 I), 
21.5101 - 17.4944 I}}, 
I, 16.2843 + 23.4715 1} , 
- 17.4944 ♦ 21.5101 I}} 
-23.4715 + 16.2843 1} , 
-21.5101 + 17.4944 1} } 
-16.2843 - 23.4715 I}, 
17.4944 - 21.5101 I) } ) 



Take[Tom5[tl] ] //Transpose, {8, 10}J 

{( ttfZ"2?,*"°A 929033 1 ' - 7 -57128 + 19. 0518 1, -40.9109 - 1.74704 1 16 522 * 9* n 
t \lt ^nl'^llili 51 ' ~ 7 - 42576 + 21.3328 I, -5 .4158 - 0 940778 lk IS "f^ ^21 ILVtm 
{{19.1272 - 6.93509 1,-1.02745 + 156. 682 1, 23 9098 + 15 9863 T i In^l A 7 , I} } 

ff 2 ?l7?«" 6 ^ 6 5^ "9.7151. 21 fs!!?^?^ 

{{-7.37139 - 18.8305 1, 157.056 + 0.691379 1, 16.2843 - 23 4715 1 4 ,r 0 !i] } ; 
{-6.8871 - 20.5026-1, 169 .734 - 0 . 510132 X , 'l7 . 49^ 
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Map [Abs, TomS[[l, 2])] 



{(99.9069, 
{99.9377, 
{99. 9377, 
{99.9377, 
{10.9504, 
{10.9205, 
{10.9205, 
{99.9069, 
{10.9504; 
{101.129, 
{10.9205, 
{99.9069, 
{10.9504, 
{101.129, 
{10.9205, 
{99.9069, 
{11.1392, 
{99.9377, 
{10.9504, 
{99.9069, 
{10.9504, 
{101.129, 
{10.9205, 
{99.9069, 
{11.1392, 
{10.9504, 
{11.1111, 
{10.9504, 
{10.9205, 
{101.129, 
{11.1111, 
{10.9504, 
{11.1111, 
{11.1392, 
{99. 9377, 



12.1968, 2.82297, 16.3585} 
12.2274, 2.7937, 16.3237}, 
12.2274, 2.7937, 16.3237), 
12.2274, 2.7937, 16.3237}, 
111.653, 17.2325, 16.2024) 
111.621, 17.2666, 16.1692} 
111.621, 17.2666, 16.1692} 
12.1968, 2.82297, 16.3585} 
111.653, 17.2325, 16.2024} 
12.0176, 2.74759, 17.0524} 
111.621, 17.2666, 16.1692} 
12.1968, 2.82297, 16.3585} 
111.653, 17.2325, 16.2024} 
12.0176, 2.74759, 17.0524} 
111.621, 17.2666, 16.1692} 
12.196S, 2.82297, 16.3585} 
110.422, 16.5587, 16.2668} 
12.2274, 2.7937, 16.3237}, 
111.653, 17.2325, 16.2024} 
12. 1968, "2. 82297, 16.3585} 
111.653, 17.2325, 16.2024} 
12.0176, 2.74759, 17.0524} 
111.621, 17.2666, 16.1692} 
12.1968, 2.82297, 16.3585} 
110.422, 16.5587, 16.2668} 
111.653, 17.2325, 16.2024} 
110.39, 16.592, 16.2327}, 
111.653, 17.2325, 16.2024} 
111.621, 17.2666, 16.1692} 
12.0176, 2.74759, 17.0524} 
110.39, 16.592, 16.2327}, 
111.653, 17.2325, 16.2024} 
110.39, 16/592, 16.2327}, 
110.422, 16.5587, 16.2668} 
12.2274, 2.7937, 16.3237), 



, (99.9377, 12.2274, 2.7937. 16.3237) 
{99.9377, 12.2274, 2.7937, 16.3237) 
{99.9377, 12.2274, 2.7937, 16.3237 ) 
(101.16, 12.0496, 2.71211, 17.0171) 
, {10.9205, 111.621, 17.2666, 16.1692) 
- {10.9205, 111.621, 17.2666, 16 1692 
, {11.1111^110.39, 16.592, 16.2327) 
{101.16, 12.0495, 2.71211, 17.0171) 
{11.1111, 110.39, 16.592, 16.2327) 
{10.9504, 111.653, 17.2325, 16.2024) 
{11.1111, 110.39, 16.592, 15.2327) 
{101.16, 12.0496, 2.71211, 17.0171) 
{11.1111, 110.39, 16.592, 16.2327) 
{10.9504, 111.653, 17.2325, 16 2024) 
{11.1111, 110.39, 16.592, 16.2327) 
{101.16, 12.0496, 2.71211, 17.0171) 
{99.9069, 12.1968, 2.82297, 16.3585) 
{101.16, 12.0496, 2.71211. 17.0171) 
{11.1111, 110.39. 16.592, 16.2327) 
{101.16, 12.0496, 2.71211, 17.0171* 
{11.1111, 110.39, 16.592, 16.2327} 
{10.9504, 111.653, 17.2325, 16.2024) 
(11.1111, 110.39, 16.592. 16.2327) 
(101.16, 12.0496, 2.71211, 17.0171) 
{101.129, 12.0176, 2.74759, 17.0524) 
(10.9205, 111.621, 17.2666, 16.1692) 
(101.129, 12.0176, 2.74759, 17 0524) 
(10.9205, 111.621, 17.2666, 16.1692) 
(11.1111, 110.39, 16.552, 16.2327) 
(10.9504, 111.653, 17.2325, 16.2024) 

{101.129, 12.0176, 2 — 

(10.9205. 111.621, 
(101.129, 12.0176, 2 
(99.9069, 12.1968 



74759, 17.0524} , 
17.2666, 16.1692}, 
74759, 17 .0524} , 
2.82257, 16.3585}, 



(99.9377, 12.2274, 2.7937, 16.3237}} 



MaxOO 05 = 

To^S^f// 3 ^ 3 //AbS ' //Abs, Ke ( # [[ 4 3 3 ] //Abs, In [ ft [ [ J } j ] f J { 



{{104.351, 
{101 .055, 
{93. 8035, 
{67. 0266, 
(86.7967, 
{98. 9714, 
{104.382, 
{103 .704, 
{96. 1447, 
(83.2288, 
(62.9341, 
{96.5637, 
(103 .567, 
{91.0436, 
{83 . 8748, 
{86. 6792, 
{74:9525, 
{86.0103, 



15.1379} 

14 .7022} 

15 .2762} 
22 . 9468} 
16.2927} 
14.9013} 
15.2953) 
15.2097} 
15.3897) 
15.9297} 
16.4519} 
15.3294} 
15.2284} 
27.8733} 
27.3795) 
16.337E} 
21.37) 
22 .4409} 



(67. 
(77. 



(103.911, 15.2763), { 1 02 . 6 86 „ 1 5 . 0 1 89 } 
(99.0255, 14.5376), {56.6051, 14.9364} 
, (90.7175, 15.6415), (71.4359, 25.1654} 
, (70.8801. 21.9511), (74.4539, 20.8688} 
, (90.7238, 15.4739}, (86.1537, 22.7114); (67~ 
, (91.0278, 25.3506}, {91.5367, 25.7331}, 91 
' {«2 5 ' 346 ' 15 * 892 2), (51.9518, 27.7219}, (SO 
, (88.1543, 27.846}, '{85.9746, 27.2075}, {83.3 
, {93.9076, 15.3803), (74.6965, 25.8353), (86 
, (79.0562, 16.0518), (71.3823, 22.4556}, 74* 
, (87.1763, 15.7147), ( 8 3.839, 21.6473), 
, (89.7552, 24.5667}, { 50 . 6053 , 2 5 . 0753 } 
, (104.931, 15.891}, (92.2522, 27.2697), 
, (69.5104, 27.4849), (87.6329, 27.2718} 
, (81.0829, 26.501), {73.152, 25.9901), (l^lo 
* 4";! 876 ' 24.357), {65.9937, 22 . 9638} , { 74 . 5 
(77.7339, 19.7041), (80.5993, 20.0831}, (90 
(96.2752, 15.4329}, {53.6876, 15.1306), (100 



(B5. 5 
, (91. 
(104 . 
{100 



5508, 23 . 8519} , 
6444, 19.7766}, 
5152, 23.2037), 
8871, 26.0709} , 
4855, 27.2999), 
933, 26.8136), 
£12, 16.2707), 
3S3, 20.923), 
445, 22.25), 
3309, 25.5023), 
592, 15.4722}, 
.78, 14.7073), 
53, 25.3375), 
498, 16.5852}, 
5. 16.0026}, 
-942, 15.3636}} 
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ListPlot [HaxOOOS / / Transpose / /#[[!)}&, PlotOToined -> True] 




ListFlot[Max0005 //'Transpose // # [ [2] PlotJoined -> True] 
28h 



Map[{Max[{Re[#[[l]]] //Abs, Im[#[[l)]] //Abs, Re[#[[2]]] // Abs, Xm[#[[2]J] //Abs)], 
TomSnlfVf// 3133 //Abs ' Im ^E[3]}3 //Abs, Re [#[[4]] J //Abs, !:,[#[ [4]]) //Abs}])*, 



({169 
{169 
{169 
{169 
{169 
{169 
{169 
{169 
{169 
{169 
{169 
{169 
{169 
{169 
{169 
f 169 
{169 
{169 



.715, 21. 
.734, 21, 
.734, 21. 
.734, 21. 
.715, 21. 
.794, 21. 
.715, 21. 
.794, 21. 
.715, 21. 
.734, 21. 
.715, 21. 
.794, 21. 
.715, 21. 
.715, 21. 
.715, 21, 
.794, 21. 
.715, 21. 
-794, 21, 



5305} 
5101} 
5101} 
5101} 
5305} 
6095} 
5305} 
6095} 
5305} 
5101} 
5305} 
6095} 
5305} 
5305} 
5305} 
6095} 
5305} 
6095} 



{169, 

{169 

{169, 

{169. 

{169 

{169, 

{169, 

{169. 

{169. 

(169. 

{169, 

{169, 

{169. 

{169 

{159 

{169 

{169 

{169 



734, 21. 
734, 21, 
813, 21, 
734, 21, 
813, 21, 
715, 21, 
813, 21. 
715, 21, 
813, 21. 
813, 21. 
813, 21, 
715, 21, 
813, 21, 
734, 21, 
734, 21 
715, 21. 
734, 21. 
715, 21. 



5101} 
5101} 
5891} 
5101} 
5891} 
5305} 
5891} 
5305} 
5891} 
5891} 
5891} 
5305} 

se9i} 

5101} 
5101} 
5305} 
5101} 
5305} 



{169 .734, 
{169.734, 
{169 .715, 
{169 .734, 
{169.715, 
{169.734, 
{169.715, 
{169 .734, 
{169 .794, 
{169 .715, 
{169.715, 
{169.734, 
{169 .79-2, 
{169 .813, 
(169 .734, 
{169 .813, 
{169 . 813, 
(169.734, 



21 .5101} 
21 .5101} 
21 .5305} 
21 .5101} 
21 .5305} 
21 .5101} 
21 .5305} 
21 .5101} 
21 .6095} 
21 .5305) 
21 .5305) 
21 .5101} 
21 .6095} 
21 .5891) 
21 .5101} 
21 .5891} 
21 .5891} 
21 .5101) 



ties. 

{169. 
{169. 
{165. 
{165. 

{ies. 

{1€S. 
{165. 
{1€?. 
{163. 
(16S. 
(163. 
{165. 
(169. 



734, 21. 
813, 21. 
813, 21. 
813, 21. 
813, 21. 
813, 21. 
715, 21, 
813, 21. 
813, 21, 
813, 21. 
794, 21. 
794, 21. 
813, 21. 
794, 21, 
794, 21, 
734, 21. 



5101} 
5891] 
5891) 
5891) 
5891} 
5891) 
5305} 
5891) 
5891} 
5891} 
6095} 
6095} 
5891} 
6095} 
6095} 
5101}} 



demodframe = Sign [Re [ Tom5 [ [ 1 , 1]] Seql)] /. {-1 ->i, i -> 0} 

11. 1. 1, 1, 1, 1, 1, 1, 0, 1. 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, C, 1, 0, 0, 

1.0, 1, 1,1,0, 0, C, C, 1,0, 0, 0, 1,0, 0,1,0, 1, 1.1, 0, C, 1 0 1 1 

0, 1, 0, 1, 1, 0, 1, 1, C, 1, 0, 0, 1, 1, 1, 1} 



si :m.l l;r,t li:nv Iwcu in i!u puucssim: 
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f rame 



( n' J' i' J" ?/' }' 1( 1( 1( °' 1 ' °' 1 - °' X - X - L °. 1- I- 0. 1. 0- 0, 0, 1, 0 

?' o' ?' n' ^' 2' ?' ?' 2' J* 2' °' °' °' °' °< X < °' °- 1' 0, 1. 

1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1} 



Length[f rame] 
72 



truncatedfraaa = frame // Drop[#, 1J& // Drop[S, 

n' i' J' i' n' J' 2' J' 2* °' 11 1 - l ' °' 1 - l ' °< °< 0. 0. 1. 0. 0, 

o' ?' o' i' n' ?' ?' J* 2' 2' °' X ' °' °' *• °- !• ^ °< 0. i. 0. 1, 1 
0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1) ' 

demodframe - truncatedf rame 

{ n' 2' 2' 2' 2' 2* 2' °' °' °' °' °' °' °< 0. 0. 0. 0, 0, 0, 0. 0, 0. 0, 0, 0. 0 

S' 2' 2' 2' 2' 2' 2 /T) ' °' °' °' °' °- °' °- o. °- 0, 0, 0. 0. 0 0 0 0 0 0 
0, 0, 0, 0, 0, 0. 0, 0, 0, 0, 0, 0. 0, 0, 0, 0} 

Toni6 = CDt«.CoarseSynchronisertHodOutputUnEncodedFranie3 //Dropffi, 250 416 
GolSseglist // #[[33]t , 100, 4] Pl ' 

$Aborted 

Tom6 [ [1, 1J ] Seql // Re 

■^nUnl' - 157 - 056 ' "157.056, -157.056, -157.056, -157.056, -157.056 -156 862 

i iZ^," 9 ^ 1 ?;/' 3815 ' - 9 - 3815 ' 9-3815.-9.18122, -157.37, -156.862. 9 75774 
i"!-; 1 ^ 2 ' Z^Ull 6 -' 9 - 75774 ' -9-3815, 9. 18122, 157.37, 156.862. -9 75774 9 18122 
nll-'ilS' - 9 - 75774 - 9-3815, -9.18122, -157.37, -156.862, 9.55745 157 37 157 056 
156.862, -9.75774, 9.18122, 157.37, 156.862,-9 75774 9 18122 157 176 I nlnnk 
S \\V-\^*« 1 %\ll* - 157 - 37 ' -156.862, 9.55746, 1S1 176, -9 75774 .T.38l!'. "-9 1*122 
~it-,-Ul' VZV-, 1 -, 4 ' " 9 - 381S - 9.3815. -9.18122, -157.176, 9.75774 -9.18122 9 " 18122 ' 
-157.176, 9.75774, -9.3815, 9.18122, 157.176, -9.55746, -157.37! -157 056! -157.056} 

Tom6[[l, 1]] seql //In 

{ ~^'? 4 |a' :1°;3 815 ' -10-3815, -10.3815, -10,3815, -10.3815, -10.3815, -10 62 
;J 5 ift«f 9 ' ^-.I 83 ' " 15 - 6783 ' 15.6783, -15.6783, 15.9004. -10.0454 -10.62 -15 3789 
loiS?o' Tc°,- 28 3 9 ' -15.3789. 15.6783, -15.9004, 10.0454. 10.62. 15.3789 -15 9004 
in' 2 . 8 . 39 ^ 1 ^ 3 , 7 , 89 ' - 15 - 6783 - 15.9004, -10.0454, -10.62, -15.601. 10.0454 10 3815 
^•^oc 15 - 3 ,! 8 !' - 15 - 5004 ' 10-0454, 10.62. 15.3789, -15.9004, 10.2839. 10 - 3815 - . 

ii «2i "Jf-SIS 3, 15 - 9004 - -10-0454, -10.62, -15.601, 10.233S. 15.3789, 

^|-I22 4 ' - 10 ' 2839 ' "15.3789, 15.6783, -15.6783, 15.5004. -10 2839 
'il'lA 9 *' 1S ,k 9 1°J' - 10 - 2839 ' -15-3789, -15.6783, -15.9004, 10. 2535 15 601 
-10.0454, -10.3815, -10.3815) ul ' 

Tom6[[l, 2]] Seql // Re 

''To 6 LJ S1 ',; l !fe 733 A ' - 169 - 733 ' -1G9.733. -169.733, -169.733. -165.733. -169.638 
2"^ti-" l0 ;iS 5 ^ 0 ' 425 ' - 10 - 425 - 10-425, -9.86944, -169. 7S1, -159.638. 10 444 
lU > ZU Tn 6 !;! 56 ^ 1 ?^ 44 ' - 10 - 425 ' 5.86944, 169.751, 169. 63S. -10.444, 9 86944 
lH"!™' "in- 44 1' - 9 - 86944 - -169.751, -169.638, 9.88S47. 169.751. 169 733 

10 Al ' ; 2co 44 ' 9 - 86944 - 169.751, 169.638, -10.444, 9.86944. l-:9.656. -10 444 
H h;'^ 6 "' "169.751, -169.636, 9.88847. 169.656, -10.444. 10.425 -9 86944 
til' ^- 44 ^' - 10 - 425 ' 10.425, -9.86944, -169.656. 10.444. -5.86944 *- 8694<S ' 
-169.656, 10.444, -10.425, 9.86944, 169.656, -9.83847, -169.751. -169 733 -169 733' 
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Tom6 = CDMACoarseSynchroniser[ModOutputUnEncodedFrame3 //Drop[g, 250 41& 
Goldseqlist // «[ [3]]fc , 100, 4] 

DeModulator {{{10.3815 - 157.056 I, 157.056 + 10.3815 1, -10.3815^ 157 056 1 

-157.056 - 10.3815 1, 10.3815 - 157. 056 1 , 157.056 + 10. 3815 1, -10.3815 * 157 056 1 
-156.862 - 10.62 1, 15.601 + 9.55746 I, -157.176 - 10.2839 1, 15 . £01 + 9 . 55746 I 
-157.176 - 10.2839 1, 15.601 + 9.55746 1, -157.37 - 10.0454 1, 10.3315 - 157 056 1 
156.862 + 10.62 1, -15.601 - 9.55746 I, 157.37 + 10 ,0454 1, -10.62. 156 862 1 
9.55746 - 15.601 1, -10. 2839 * 157.176 I, 9 .75774 - 15.3789 1, -15.6733*-9 3815 1 
-9.18122 + 15.9004 I, 10.2839 - 157.176 I, -9.75774 + 15.3789 I, 15.9004 + 9 18122 I 
-157.176 - 10.2839 1, 15.601 + 9.55746 1, -157.37 - 10 .0454 1, 10.3815 - 1 = 7*056 1 
156.862 + 10.62 1, -15.3789 - 9.75774 1, -9 .3815 + 15.6783 1, 15.67e3 + 9 38151 
9.18122 - 15.9004 1, -10.2839 + 157. 176 1, 9.75774 - 15.3789 1, -15.6783*- 9 3815 T 
-9.18122 + 15.9004 1 , 10.2839 - 157.176 I, -9.75774 + 15.3789 I, 15.9004 + 9*18122 T 
-157.176 - 10.2839 1, 15.601 + 9.55746 1, - 157.37 - 10.0454 1, 10 . 3815 - 157 " 056 I 
156.862 + 10.62 1, -15.3789 - 9.75774 1, -9.18122 + 15.9004 1, 10 . 2639 - 157 ' I7fi i 
-9.55746 + 15.601 1, 10.0454 - 157 .37 1, 15 6. 862 + 10.62 1, -15.601 - 9.55746 1 
157.176 + 10.2839 1, -15.601 - 9.55746 1, 157.37 + 10.0454 1, -10.62 + 156 862 1 
9.55746 - 15.601 1, -10.0454 + 157.37 1, -156.862 - 10.62 1, IS .601 + 9 . 55746 I 
-157.176 - 10.283 9 1 , 15.3789 + 9.75774 I, 9.18122 - 15.9004 I, -10.0454 + 157 37 I 
-157.056 - 10.3815 1, 10 . 3815 - 157 . 056 1 , 157 .056 + 10.3815 1), (-7.65342 - 169 733 I 
169. 733 - 7. 65342JC, 7.65342 + 169.733 1, -169 .733 + 7.65342 1, -7 . 65342 - 169 733 I 
169.733 - 7.65342 1, 7 . 65342 + 169 . 733 X , -169.638 + 6.41574 1, 17.2252 + 9 88847 1 
-169.656 + 6.44773 I, 17.2252 + 9.88847 I, -169. 656 + 6.44773 1 , 17.22 52 + 9 e8847 1 
TiS^Z? 1 t, 7 ; 68541 -7.65342 - 169.733 1 , 169.638 - 6.41574 I , -17.2252 - 9.88847 i 
169.751 - 7.68541 1, 6.41574 + 169.638 1. 9 .88847 - 17.2252 1, 6.44773 + 169 656 1 
10 444 - 16.382 1, -16.412 - 10.425 I, -9 .86944 + 17.2553 1, -6.44773 - 169.656 I ' 
-10.444 + 16.382 1, 17.2553 + 9.86944 I, -169.656 + 6.44773 1, 17.2252 + 9.88847 1 
-169.751 + 7.68541 1, -7.65342 - 169 .733 1, 16 9.638 - 6. 41574 1, -16.382 - 10 444 1 
-10.425 + 16.412 1, 16.412 + 10.425 1, 9.86944 - 17 .2553 1, 6 . 44773 + 169 . 656 it 
10.444 - 16.382 1, -16.412 - 10.425 1, -9.86944 + 17.2553 1, -6.44773 - 169 656 1 
-10.444 + 16.382 1, 17.2553 + 9.86944 1, -169.656 + 6.44773 1, 17.2252 + 9 88847 1 
-169.751 + 7.68541 1, -7.65342 - 169.733 1, 169.638 - 6.41574 1, -16.382 - 10 444 V 
-9. B6944 + 17.2553 I, -6.44773 - 169.656 I, -9.83847 + 17. 22S2 I, . " 

-7.68541 - 169.751 1, 169.638 - 6 .41574 1, -17 .2252 - 9. 88847 1 

169.656 - 6.44773 1, -17.2252 - 9. 88847 I r 169.751 - 7.68541 I, 6.41574 + 169 638 1 
9.88847 - 17.2252 1, 7.68541 + 169.751 1, -169.638 + 6.41574 1, 17.2252 + 9 88847 l' 
-169.656 + 6.44773 1, 16.382 + 10.444 1, 9 . 86944 - 17 .2553 1, 7.68541 + 169 751 1 ' 
-169.733 + 7.65342 1, -7.65342 - 169.733 1, 169.733 - 7.65342 1}}] 

Tom6([l, 1]] Seql // Re 

{157.056, 157.056, 157.056, 157.056, 157.056, 157.056, 157.056, 156.862, -9 55746 
:3f 7 .} 76 ' 9 * S574 6* 157.176, -9.55746, -157.37, -157.056. -156. £52, 9.55746, 157 37 
156.862, -9.55746, -157.176, 9.75774, -9.3815, 9.18122, 157.176, -9.75774, 9 18122' 
""fll 176 ' -9-55746, -157.37, -157.056. -156 .862, 9.75774, -9. 3515, 5.3815, -9 18122* 
-157.176, 9.75774, -9.3815. 9.18122, 157.176, -9.75774, 9.18122, 157.176, -9*55746' 
-157.37, -157.056, -156.862, 9.75774, -9.18122, -157.176, 9.55745, 157.37 
155.862, -9.55746, -157.176, 9.55746, 157.37, 156.862, -9.S574S, -157 37 
-156.862, 9.55746, 157.176, -9.75774, 9.18122, 157.37, 157.056, 157.056, 157.056} 

Tom6 [ [1, 1) ] SeqX // Im 

{-10.0454, -10.3815, -10.3815, -10.3815, -10.3815, -10.3815, .10.3815, -10.62, 
"J- 5 -3789, 15.6783, -15.6783, 15.6783, - 15. 6783, 15.9004, -10.0454, -10.62, -15 3789 
l^'nS? 4 ' - 10 -2839, -15.37S9, 15.67B3, -15.9004, 10.0454, 10.62. 15.3789,-15.5004 
10.2839, 15.3789, -15.6733, 15.9004, -10.0454, -10.62, -15.601, 10.0454, 10 3815 ' 
10.62, 15.3789, -15.9004, 10.0454, 10.62, 15.3789, -15.9004, 10 2839 
15.3735. -15.6783, 15.9004, -10.0454, -10.62, -15.601, 10.2S39, 15.3789, 
-15.6783, 15.9004, -10.2839, -15.3789, 15.6783, -15.6783, 15.9C;^, -10 2839 
'^*2 789 ' 15 -9004, -10.2839, -15.3789, 15.6783, -15.9004, 10.2E39, 15.601. ' 
-10.0454, -10.3815. -10.3815} 

Tom6[ [1, 2]] seql // Re 

{-169.751, -169.733, -169.733, -169.733 , - 169.733, - 169.733, -!•:*. 733, - 169.638 
1 S"ti 4 ' 10.425, -10.425, 10.425. -5. 86944, -169.751, -169.638, 10.444,' 

-9.8694--;, -169.656, 10.444, -10.425, 9.869<)4, 169.751, 169. 63E. - 10.444, 9.56944 
169.656, -10.444, 10.425, -9.86944, -169.751, -169.633, 9,SSo47, 169.751, 165.733 
165. 63£, -10.444, 9.86944. 169.751, 169 . 638, - 10.444, 9.86544 1*3 656 -10 444 ' 
10 425, -9.86944, -169.751. -169.638, 9.8B817, 169.656, -10.44-:, 10.425 -9*86944 
-169.656, 10.444, -10.425, 10.425. -9.B6944, -169.6 r i6, 10.444 -5 66944 

•jr.--. .coc, 10. :4. --io.o^v, i >.sr;9.;-;. j.-;n.coc. .17. -ye.* : " j t- -> 7'.-. .. 
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Table [CDIIAPositionFinder [ModOutputUnEncodedFrajne3 // Drop[#, 250 4 + i 20)fc, 
Goldseqlist // # [ [3] 4] // Flatten // Abs // Max, 
{i, 251, 350}] 

{22.6392, 22.6392, 22.6392, 17.4452, 17.6558, 17.6558, 17.6558, 17.6558, 17.4676 
17.4676, 18.088, 18.088, 18.088, 18.088, 19.6342, 19.6342, 19.6342, 19.6342, 19 6342 
13.457, 16.0791, 16.0791, 16.0791, 16.0791, 19.95, 19.95, 19.95, 15.95, 19 95 
18.3042, 16.6993, 16.7542, 23.0831, 25.3773, 25.3773, 25.3773, 25.3773, 24.601, 
24.601, 24.601, 18.7221, 20.5255, 26.9209, 26.9209, 26.9209, 26.9209, 18.9705 
18.9705, 18.9705, 20.3921, 22.6392, 22.6392, 22.6392, 22.6392, 17.4452, 17.6558 
17.6558, 17.6558, 17.6558, 17.4676, 17.4676, 18.038, 18.088, 1E.C83, 18.088 
19.6342, 19.6342, 19.6342, 19.6342, 19.6342, 13.457, 16.0791, 16.0791, 
16.0791, 16.0791, 19.95, 19.95, 19.95, 19.95, 19.95, 18.3042, 16.6993, 
16.7542, 23.0331, 25.3773, 25.3773, 25.3773, 25.3773, 24.601, 24.601, 24.601 
18.7221, 20.5255, 26.9209, 26.9209, 26.9209, 26.9209, IB. 9705, 18.9705, 18.9705) 

Max[H] 

26.9209 



Map (Max, 



{17.6558, 17.6558, 17.6558, 17.6558, 17.4676, 17.4676, 18.088, 18.088, 18.038, 18 088 
19.6342, 19.6342, 19.6342, 19.6342, 19.6342, 13.457, 16.0791, 16.0791, 
16.0791, 16.0791, 19.95, 19.95, 19.95, 19.95, 19.95, 18.3042, 16.6993, 
16.7542, 23.0831, 25.3773, 25.3773, 25.3773, 25.3773, 24.601, 24.601, 24.601, 
18.7221, 20.5255, 26.9209, 26.9209, 26.9209, 26.9209, 18.9705. 18.9705, 
18.9705, 20.3921, 22.6392, 22.6392, 22.6392, 22.6392, 17.4452} 



E3 References 

1 "Binary Sequences with Gold-Like Correlation but Larger Linear Span" by 

Serdar Eoztas and P . Vijay Kumar IEEE Trans . on Information Theory Vol 4 0 No 2, 
March 19 84 



